SET COLO TO BG+/B,W+/N
@ 4,1 CLEAR TO 23,50
@ 7,1 CLEAR TO 23,78
SELE 1
SET EXCLU OFF
USE &DR&F1
go top
do while .not. eof()
   store 0 to med,den,xry,lab,tot,pres,CTRR
   LOCATE FOR DATE_VISIT=TGL
   IF .NOT. FOUND()
      CONTINUE
      IF EOF()
         EXIT
      ENDIF
   ELSE

      do while .not. eof()
         if date_visit<>tgl
            skip
            loop
         else
            CTR=CTR+1
            INV=INV_NBER
            KODE=PAT_FILCOD
            COMP=SPAC(36)
            SELE 4
            SEEK KODE
            IF .NOT. EOF()
               COMP = JOB_CORP
               CMS=PAT_CMS
            ENDI
            SELE 1
            IF CMS
               TOTCMS=TOTCMS+TOTAL_FEE
            ENDIF
            IF LEFT(INV_NBER,1)='H'
               TOTHNF=TOTHNF+TOTAL_FEE
            ELSE
               TOTPRO=TOTPRO+TOTAL_PROC
               TOTPHA=TOTPHA+TOTAL_PHAR
               TOTHL=TOTHL+TOTAL_HL
               TOTMS=TOTMS+TOTAL_MS
            ENDIF
            TOTFEE=TOTFEE+TOTAL_FEE
            TOTPAY=TOTPAY+TOTAL_PAY
            TOTCRD=TOTCRD+TOTAL_CRED
            IF PAT_CODTYP='0' .OR. PAT_CODTYP='9'
               TOTEMPL=TOTEMPL+(TOTAL_FEE-TOTAL_PAY)
            ENDIF
            DO CASE
               CASE pay_mode='CASH'
                  TOTCAS=TOTCAS+TOTAL_CASH
               CASE pay_mode='CHEQUE'
                  TOTCEK=TOTCEK+TOTAL_CASH
               CASE pay_mode='CARD'
                  TOTCAR=TOTCAR+TOTAL_CASH
            ENDCASE
         ENDIF
         SELE 1
         SKIP
      ENDDO
   ENDIF
ENDDO
@ 5, 4 SAY "LAST VISIT RECORDED for "+DTOC(TGL)
IF AEADECI
@ 6, 4 SAY 'TOTAL NUMBER OF VISITS       : '+STR(CTR,4)
@ 7, 4 SAY 'GRAND TOTAL FEE              : '+TRANS(TOTFEE,'##,###,###,###.##')
@ 8, 4 SAY 'GRAND TOTAL PROCEDURE        : '+TRANS(TOTPRO,'##,###,###,###.##')
@ 9, 4 SAY 'GRAND TOTAL PHARMACY         : '+TRANS(TOTPHA,'##,###,###,###.##')
@ 10, 4 SAY 'GRAND TOTAL AEA - TMS        : '+TRANS(TOTHL,'##,###,###,###.##')
@ 11, 4 SAY 'GRAND TOTAL MEDICAL SCHEME   : '+TRANS(TOTMS,'##,###,###,###.##')
@ 12, 4 SAY 'GRAND TOTAL HEALTH & FITNESS : '+TRANS(TOTHNF,'##,###,###,###.##')
@ 13,4 SAY 'GRAND TOTAL F.O.C. EMPLOYEES : '+TRANS(TOTEMPL,'##,###,###,###.##')
@ 14,4 SAY 'GRAND TOTAL C.M.S.           : '+TRANS(TOTCMS,'##,###,###,###.##')
@ 15,4 SAY 'GRAND TOTAL CHARGEABLE       : '+TRANS(TOTPAY,'##,###,###,###.##')
@ 16,4 SAY 'GRAND TOTAL CASH             : '+TRANS(TOTCAS,'##,###,###,###.##')
@ 17,4 SAY 'GRAND TOTAL CHEQUE           : '+TRANS(TOTCEK,'##,###,###,###.##')
@ 18,4 SAY 'GRAND TOTAL CREDIT CARD      : '+TRANS(TOTCAR,'##,###,###,###.##')
@ 19,4 SAY 'GRAND TOTAL CREDIT           : '+TRANS(TOTCRD,'##,###,###,###.##')
ELSE
@ 6, 4 SAY 'TOTAL NUMBER OF VISITS       : '+STR(CTR,4)
@ 7, 4 SAY 'GRAND TOTAL FEE              : '+TRANS(TOTFEE,'##,###,###,###')
@ 8, 4 SAY 'GRAND TOTAL PROCEDURE        : '+TRANS(TOTPRO,'##,###,###,###')
@ 9, 4 SAY 'GRAND TOTAL PHARMACY         : '+TRANS(TOTPHA,'##,###,###,###')
@ 10, 4 SAY 'GRAND TOTAL AEA - TMS        : '+TRANS(TOTHL,'##,###,###,###')
@ 11, 4 SAY 'GRAND TOTAL MEDICAL SCHEME   : '+TRANS(TOTMS,'##,###,###,###')
@ 12, 4 SAY 'GRAND TOTAL HEALTH & FITNESS : '+TRANS(TOTHNF,'##,###,###,###')
@ 13,4 SAY 'GRAND TOTAL F.O.C. EMPLOYEES : '+TRANS(TOTEMPL,'##,###,###,###')
@ 14,4 SAY 'GRAND TOTAL C.M.S.           : '+TRANS(TOTCMS,'##,###,###,###')
@ 15,4 SAY 'GRAND TOTAL CHARGEABLE       : '+TRANS(TOTPAY,'##,###,###,###')
@ 16,4 SAY 'GRAND TOTAL CASH             : '+TRANS(TOTCAS,'##,###,###,###')
@ 17,4 SAY 'GRAND TOTAL CHEQUE           : '+TRANS(TOTCEK,'##,###,###,###')
@ 18,4 SAY 'GRAND TOTAL CREDIT CARD      : '+TRANS(TOTCAR,'##,###,###,###')
@ 19,4 SAY 'GRAND TOTAL CREDIT           : '+TRANS(TOTCRD,'##,###,###,###')
ENDIF
@ 20,4 SAY "END OF REPORT"
@ 21,4 say repl('-',50)
WAIT ''
SET DEVI TO SCREEN
CLOSE DATA
CLOSE INDEX
RETURN
